perm filename INSTS[1,LCS] blob sn#305770 filedate 1977-09-19 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	INS 0 1 <SIMP   INSTRUMENT 1
C00006 ENDMK
CāŠ—;
INS 0 1; <SIMP   INSTRUMENT 1
SET P5;
OSC P4 P3 B2 P5 P30; < NO ENVELOPE
OUT B2 B1;END;

INS 0 2;  < TOOT INSTRUMENT 2
SET P5;
OSC P4 P7 B2 P5 P30;
SET P6;
OSC B2 P3 B2 P6 P29;                                                       
OUT B2 B1;END;  <       ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!            

INS 0 3;  < CLAR INSTRUMENT 3 
SET P5;
OSC P4 P8 B2 P5 P30;                                                       
SET P7;
OSC B2 P3 B2 P7 P29;                                                       
OUT B2 B1;END;  <       ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!            

INS 0 4;  < BRIT INSTRUMENT 4
SET P5;
OSC P4 P9 B2 P5 P30;                                                       
SET P8;
OSC B2 P3 B2 P8 P29;                                                       
OUT B2 B1;END;  <       ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!            

INS 0 5;  < BUZZ INSTRUMENT 5
SET P5;
OSC P4 P10 B2 P5 P30;                                                       
SET P9;
OSC B2 P3 B2 P9 P29;                                                       
OUT B2 B1;END;  <       ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!            
                                                                           
GEN 0 1 1 0 0 .9,32 .99,57 .9,430 .7,465 0 511; <F1 MEZZO LEG.
GEN 0 1 2 0 0  .99,16 .99,56 .4,159 .1,230 0,511; <F2 SEMI-STACC.
GEN 0 2 3 1 1; < SINE WAVE  F3
GEN 0 2 4 .5 0 .3 0 .2 0 .1 7; < CLAR WAVE  F4
GEN 0 2 5 .3 .4 .2 0 0 0 0 .2 0 0 0 .1 12; <BRIT WAVE F5
GEN 0 1 6 ,-.999,0 .999,36 ,-.999,72 ,-.999,511; <BUZZ WAVE F6

INSTRUMENTS;
SIMP 1 6 FREQ 3;
TOOT 2 7 FREQ 3;
CLAR 3 8 FREQ 3;
BRIT 4 9 FREQ 3;
BUZZ 5 10 FREQ 3;
END;

PLAY;TOOT 0 .1 C 1000 F1 F3 F4 F5 F6;
CLAR .1;BRIT .2;BUZZ .3;
SIMP .4 .5 A 1000 F3; P1←0;FINISH;